0 IFA=0THENA=1:LOAD"0:WIZ.ML",8,1 5 POKE55,0:POKE56,128:CLR 10 REM(C)1987 UPTIME BY SOFTDISK PUBLISHING, INC 11 PRINT"[147]":CLR 13 SYS52945 15 POKE53280,0:POKE53281,0:POKE54273,25:POKE54277,9:POKE54278,9:POKE54296,15 16 POKE54280,10:POKE54284,2:POKE54285,0:POKE54275,8 20 PRINT"[147]":CLR 60 ESC=0:MT=0 70 DIMTC(30),TS(30),TP(30),SP(30,7),DJ(30) 75 DIMSN(30,7),CHG(30,7),CHG$(30,7),NM$(30,7) 80 TC(0)=1000000: DJ(0)=2000 90 REM 95 A$="[215]ALL [211]TREET [215]IZ" 100 CN$(1)="[203][194][205]":HP$(1)=" 14":LP$(1)=" 4" 105 SP(0,1)=9:EP$(1)=" .01":VG(1)=2:VB(1)=3 110 CN$(2)="[197][216][216][207][198][198]":HP$(2)=" 59":LP$(2)=" 43" 115 SP(0,2)=55:EP$(2)=" 2.50":VG(2)=2:VB(2)=4 120 CN$(3)="[213][194][205]":HP$(3)="150":LP$(3)=" 90":SP(0,3)=105 125 EP$(3)="10.00":VG(3)=2:VB(3)=5 130 CN$(4)="[215]IZER":HP$(4)=" 70":LP$(4)=" 21" 135 SP(0,4)=60:EP$(4)=" 8.00":VG(4)=2:VB(4)=2.5 140 CN$(5)="[207]N[212]RAX":HP$(5)=" 39":LP$(5)=" 14" 145 SP(0,5)=19:EP$(5)=" -0-":VG(5)=5:VB(5)=2.4 150 CN$(6)="[205]ICRO[195]HIP":HP$(6)=" 9":LP$(6)=" 3":SP(0,6)=7 155 EP$(6)=" -0-":VG(6)=2:VB(6)=2 160 CN$(7)="[204]AZER [195]ORP.":HP$(7)=" 20":LP$(7)=" 2" 165 SP(0,7)=10:EP$(7)=" 1.00":VG(7)=2:VB(7)=2.4 170 REM 180 MT=0:GOSUB920 190 D=0:NC=7:GOSUB1200 200 POKE214,14:PRINT"[145]":PRINT"[200]ERE IS A LIST OF STOCKS WITH THE" 202 PRINT"YEAR'S [200]IGH, [204]OW, AND [195]URRENT PRICES" 205 PRINT"AND [197]ARNINGS PER [211]HARE:" 210 GETSH$:IFSH$=""THEN210 220 IFSH$=CHR$(13)THENGOTO250 230 IFSH$="[140]"THEN GOTO 900 240 POKE54276,33:POKE54276,32: GOTO 210 250 REM 260 GOSUB 1400: REM SUBR TO BUY STOCKS 270 REM 280 MT=2:GOSUB920 290 POKE214,6:PRINT"[145]":PRINT"[212]HE DURATION OF THIS SESSION OF [215][193][204][204]" 292 PRINT"[211][212][210][197][197][212] [215][201][218] IS MEASURED IN DAYS." 294 POKE214,18:PRINT"[145]":M$="[197]NTER ZERO (0) AND [[210][197][212][213][210][206]] TO EXIT":GOSUB1040 300 POKE214,10:PRINT:PRINT"[197]NTER NUMBER OF DAYS (1 TO 30) YOU'LL" 302 PRINT"BE INVESTING & PRESS [RETURN] -> ";:BS=1:GOSUB1700:DM$=WQ$ 304 DM=VAL(DM$+CHR$(0)):IFASC(DM$+CHR$(0))=48THEN:GOTO900 310 IFDM$=" "THEN290 320 IF(DM<1)OR(DM>30)THENGOSUB1150:SL=21:NL=1:GOSUB1170:GOTO290 330 PRINT"[147]":M$="[208]LEASE WAIT....." 332 GOSUB1040:PRINT:M$="[212]HE [215][193][204][204] [211][212][210][197][197][212] COMPUTER IS WORKING" 334 GOSUB1040:PRINT:M$="ON YOUR PORTFOLIO.":GOSUB1040 340 FORD=1TODM:TC(D)=TC(D-1):IFDUR>0THEN370 350 RN=INT(1+RND(1)*10):IFRN>4THENDUR=RN:GOTO370 360 DUR=RN+6 370 DJ(D)=INT(DJ(D-1)*(-(RN>4)*.995-(RN<5)*1.01)+10*RND(1)-5) 375 DD=DJ(D)-DJ(D-1):DUR=DUR-1 376 FORXX=1TO2 377 RX(XX)=INT(7*RND(1)+1) 380 IF RX(2)=RX(1)THENXX=1 390 NEXT 400 FORC=1TO7:IFC=RX(1)THEN430 410 IFC=RX(2)THEN430 420 GOTO450 430 SN(D,C)=INT(2*RND(1)):IFSN(D,C)=0THENGOSUB1310:GOTO450 440 GOSUB1350 450 IFSP(D-1,C)>=10THEN460 452 SP(D,C)=INT(SP(D-1,C)*(-1.3*(DD>0)-.98*(DD<1))+(NV(C)*.5)):GOTO480 460 IFSP(D-1,C)<=50THENGOTO470 462 SP(D,C)=INT(SP(D-1,C)*(-1.02*(DD>0)-.99*(DD<1))+(NV(C)*.7)):GOTO480 470 SP(D,C)=INT(SP(D-1,C)*(-1.03*(DD>0)-.98*(DD<1))+(NV(C)*.6)) 480 IFSP(D,C)<0THENSP(D,C)=0 490 CHG(D,C)=SP(D,C)-SP((D-1),C) 495 IFCHG(D,C)<1THENCHG$(D,C)=STR$(CHG(D,C)):GOTO 510 500 CHG$(D,C)="+"+STR$(CHG(D,C)):GOTO520 510 IF(SP((D-1),C)=0)AND(CHG(D,C)<0)THENCHG$(D,C)="0" 520 NEXT 530 REM 540 MT=1:GOSUB 920 545 PRINT"[146]# [195]OMPANY [206]AME [208]/[211] [195]HG #[211]HRS [212]OT [214]AL" 546 TV=0:FORC=1TO7 550 POKE214,C+3:PRINT"[145]":PRINTC;TAB(3); 555 PRINT"[129]"CN$(C);:H=20:A=SP(D,C):GOSUB1060:PRINT"[158]"A; 557 HX=LEN(CHG$(D,C)):PRINTTAB(25-HX)"[159]"CHG$(D,C); 559 IFNS(C)<1THEN570 560 HX=LEN(NS$(C)):PRINTTAB(31-HX); 565 PRINT"[156]"NS$(C);:TV(C)=NS(C)*SP(D,C):H=39:A=TV(C):GOSUB1060:PRINT""A 567 TV=TV+TV(C) 570 NEXTC:POKE214,10:PRINT:PRINTTAB(31)"[192][192][192][192][192][192][192]":PRINTTAB(16)"[159][196]AY #";D 572 PRINTTAB(11)"[212]OTAL [211]TOCK [214]ALUE =";:H=39:A=TV 575 GOSUB1060:PRINTA 580 PRINTTAB(13)"[193]VAILABLE [195]ASH ="; 585 H=39:A=TC(D):GOSUB1060:PRINTA 587 IFCOM>0THENPRINTTAB(11)"[211]TOCK COMMISSIONS =";:A=COM:H=39:GOSUB1060:PRINTA 590 PRINTTAB(7)"[153][212]OTAL [208]ORTFOLIO [214]ALUE ="; 595 BL=TC(D)+TV:H=39:A=BL:GOSUB1060:PRINTA 605 DJ$="[196]OW-[202]ONES [193]VG"+STR$(DJ(D))+"-":DD$="[206]O [195]HG" 607 PRINT"[154]":M$="[215]ALL [211]T. [206]EWS: ":GOSUB1040 610 IFDD>0THENDD$="[213]P"+STR$(DD):GOTO630 620 IFDD<0THENDD$="[196]N"+STR$(ABS(DD)) 630 DJ$=DJ$+DD$:M$=DJ$:UY=19-LEN(M$)/2:FORL=1TOUY:M$=M$+" ":NEXT:GOSUB1130 640 NM$="":R=0:FORN=1TO7:IFLEN(NM$(D,N))=0THENGOTO680 650 NM$=CN$(N)+NM$(D,N):R=R+1 660 IFLEN(NM$)<38THENFORW=1TO38-LEN(NM$):NM$=NM$+".":NEXT 670 M$=NM$:GOSUB1140 680 NEXT 690 GETQW$:IFQW$=""THEN 690 700 IFQW$=CHR$(13)THEN800 710 IFQW$="[140]"THEN900 720 IFQW$="B"ORQW$="[194]"THEN750 730 IFQW$="S"ORQW$="[211]"THEN770 734 IFQW$="O"ORQW$="[207]"THENPOKE54276,65:POKE54276,64 735 IF(QW$="O"ORQW$="[207]")ANDSF=1THENPOKE781,23:POKE782,36:POKE783,48 736 IF(QW$="O"ORQW$="[207]")ANDSF=1THENSF=0:SYS65520:PRINT"[149]N [146]";:GOTO690 737 IF(QW$="O"ORQW$="[207]")ANDSF=0THENPOKE781,23:POKE782,36:POKE783,48 738 IF(QW$="O"ORQW$="[207]")ANDSF=0THENSF=1:SYS65520:PRINT"[149]FF[146]";:GOTO690 740 POKE54276,65:POKE54276,64:GOTO690 750 REM 760 GOSUB1400:GOTO530 770 REM 780 GOSUB1540:GOTO530 790 SL=16:NL=5:GOSUB1170:GOSUB4800:GOSUB1540:GOTO530 800 COM=0:NEXTD 810 REM 820 MT=2:GOSUB920:PRINT:M$="[159][201][206][214][197][211][212][205][197][206][212] [211][197][211][211][201][207][206] [210][197][208][207][210][212]" 822 GOSUB1040:PRINT"[195]LIENT'S FINAL PORTFOLIO [153]$"; 824 H=39:A=BL:GOSUB1060:PRINTBL 826 PRINT"[195]LIENT'S INITIAL INVESTMENT [150]$";:H=39:A=1000000:GOSUB1060:PRINTA 830 PRINTTAB(31)"[192][192][192][192][192][192][192]" 832 PRINT"[206]ET GAIN OR LOSS(-)[154]"; 834 H=39:A=BL-1000000:GOSUB1060:PRINTA 835 PRINT"[158]"; 840 IF(A<-10000)OR(A>10000)THENGOTO850 845 PRINT" [217]OUR CLIENT EXPECTED BETTER RESULTS!":GOTO890 850 IF(A<-10000)OR(A>100000)THEN860 855 PRINT" [199][207][207][196] [202][207][194]! [217]OU GET A RAISE OF $10,000!":GOTO890 860 IFA<-10000THEN870 865 PRINT" [211][213][208][197][210]!!! [217]OU'VE BEEN PROMOTED TO [214][208]!!":GOTO890 870 IFA<-100000THEN880 875 PRINT" [206][207][212] [212][207][207] [199][207][207][196]! [217]OUR BOSS IS MAD!!!!":GOTO890 880 PRINT" [217]OU COULD LOSE YOUR JOB!!!" 890 PRINT"":M$="[196]O YOU WANT TO INVEST AGAIN?":GOSUB1040 892 PRINT" [197]NTER [217] OR [206] --> [166][157]";:GOSUB1080 894 POKE204,255:PRINTAN$:IFAN$="Y"ORAN$="[217]"THEN20 900 REM 910 IFPEEK(32768)=76ANDPEEK(32769)=7ANDPEEK(32770)=128ANDPEEK(32771)=234THEN914 912 PRINT"[147]":NEW 914 IFPEEK(32772)<>76ORPEEK(32774)<>128THEN912 916 SYS32772 920 REM 940 PRINT"[147][149]$$$$$$$$$$$[146]"; 942 PRINTTAB(11)" ";A$;" "; 944 PRINTTAB(29)"$$$$$$$$$$$[146]" 950 IFMT=1THEN990 960 IFMT=2THEN1010 970 IFMT=3THEN1000 980 POKE214,24:PRINT"[145]":PRINT" [[198]8] TO END"; 985 PRINT" [[210][197][212][213][210][206]] TO CONTINUE[146]";:POKE2023,160:POKE56295,9:GOTO1010 990 SF$="N ":IFSF=1THENSF$="FF" 992 POKE214,23:PRINT"[145]" 994 PRINT " [[194]]UY [[211]]ELL [211]OUND [[207]]";SF$;" "; 996 PRINT" [[198]8] TO END [[210][197][212][213][210][206]] TO [195]ONTINUE";:POKE2023,160:POKE56295,9 998 GOTO 1020 1000 POKE214,23:PRINT"[145]" 1002 PRINT" [ESC] TO END "; 1010 REM 1020 MT=O:RETURN 1030 REM 1040 REM 1050 PRINTTAB(20-LEN(M$)/2)M$: RETURN 1060 REM 1070 HX=LEN(STR$(A)):PRINTTAB(H-HX-1);:RETURN 1080 REM 1090 POKE204,0 1095 GETAN$:IFAN$=""THEN1095 1100 IFAN$="Y"ORAN$="[217]"THENPOKE2040,1:RETURN 1102 IFAN$="N"ORAN$="[206]"THENPOKE2040,1:RETURN 1104 POKE54276,65:POKE54276,64:GOTO1090 1110 IFASC(AN$)=27THENESC=1 1130 REM 1140 FORZZ=1TOLEN(M$):PRINTTAB(38)MID$(M$,ZZ,1):PRINT"[145] ";:IFSF=1THENNEXT:PRINT:RETURN 1141 POKE54283,129:POKE54283,128:FORL=1TO20:NEXTL,ZZ:PRINT:RETURN 1150 REM 1160 POKE214,19:PRINT:PRINT"[150][201][204][204][197][199][193][204] [197][206][212][210][217] - [212][210][217] [193][199][193][201][206]!"; 1165 POKE54276,33:POKE54276,32:FORT=1TO1000:NEXT:RETURN 1170 REM 1180 REM 1190 FORL=0TONL:POKE214,SL-1:PRINT"[145]":SYS49152:NEXTL:RETURN 1200 REM 1210 REM 1220 PRINT"# [195]OMPANY [206]AME [200]IGH [204]OW [195]URR [197]R/SH" 1230 FORC=1TONC 1231 POKE214,3+C:PRINT""C; 1232 PRINTTAB(4)"[129]"CN$(C); 1233 PRINTTAB(21)"[153]"HP$(C); 1234 PRINTTAB(25)"[150]"LP$(C);:HX=LEN(STR$(SP(D,C))) 1235 PRINTTAB(33-HX)"[158]"SP(D,C); 1236 PRINTTAB(34)"[154]"EP$(C) 1240 NEXT:RETURN 1250 REM 1260 IFTV(C)>10000THENCR=.009:GOTO1280 1270 CR=.10-.025*(TV(C))^.14 1280 COM(C)=INT(CR*TV(C)) 1290 IFCOM(C)>0ANDCOM(C)<30THENCOM(C)=30 1300 RETURN 1310 REM 1320 SEL=INT(1+10*RND(1)/VB(C)) 1330 SM$(1)=" REPORTS DROP IN EARNINGS" 1332 SM$(2)=" LOSES MAJOR CUSTOMER" 1334 SM$(3)=" LOSES $1.5 MILLION" 1336 SM$(4)=" FIRES THE [208]RESIDENT" 1338 SM$(5)=" FILED FOR [194]ANKRUPTCY !!!" 1340 V(1)=-1:V(2)=-1.5:V(3)=-2:V(4)=.5:V(5)=-3 1342 NV(C)=V(SEL):NM$(D,C)=SM$(SEL):RETURN 1350 REM 1360 SEL=INT(1+10*RND(1)/VG(C)) 1370 SM$(1)=" REPORTS EARNINGS INCREASE" 1371 SM$(2)=" REPORTS EARNINGS DOUBLE" 1372 SM$(3)=" REPORTS SALES INCREASE" 1373 SM$(4)=" ACQUIRES MAJOR CUSTOMERS" 1380 SM$(5)=" CUTS COSTS BY $10,000,000" 1390 V(1)=2:V(2)=5:V(3)=3:V(4)=2.5:V(5)=2 1392 NV(C)=V(SEL): NM$(D,C)=SM$(SEL): RETURN 1400 REM 1410 MT=2:GOSUB 920 1412 PRINT"# [195]OMPANY [206]AME [208]/[211] X #[211]HRS = [212]OT [214]AL" 1420 FORC=1TO7: 1422 POKE214,(3+C):PRINT"[154]"C; 1424 PRINTTAB(5)"[129]"CN$(C); 1426 H=22:A=SP(0,C):GOSUB1060:PRINT"[158]"A 1430 NEXT:POKE214,14:PRINT"[145]":PRINT "[197]NTER NUMBER OF SHARES YOU WISH TO BUY" 1432 PRINT"OR ENTER ZERO (0) NOT TO BUY A STOCK" 1434 PRINT"AND PRESS [[210][197][212][213][210][206]] AFTER EACH ENTRY." 1440 TT=0:COM=0 1442 FORC=1TO7 1444 POKE214,3+C:PRINT"[145]":PRINTTAB(24)"[156]";:BS=7:GOSUB1700:XS$(C)=WQ$ 1446 XS(C)=VAL(XS$(C)) 1448 IF(XS(C)>-1)AND(XS(C)<1000000)THENGOTO1460 1450 GOSUB1150:SL=21:NL=1:GOSUB1170:C=C-1:GOTO1500 1460 TV(C)=XS(C)*SP(D,C): 1462 POKE214,3+C:PRINT"[145]":H=40:A=TV(C):GOSUB1060:PRINT""A 1464 GOSUB1250:TT=TT+TV(C) 1470 SL=13:NL=1:GOSUB 1170 1472 POKE214,12:PRINT"[145]":PRINTTAB(13)"[149][212]OTAL TRANSACTION:[159]"; 1474 H=40:A=TT:GOSUB1060:PRINT A 1476 TC(D)=TC(D)-TV(C)-COM(C):COM=COM+COM(C) 1480 IF TC(D)>0 THEN GOTO 1510 1490 PRINT"" 1491 PRINT"[150][217][207][213] [200][193][214][197] [197][216][195][197][197][196][197][196] [217][207][213][210] [195][193][211][200] [204][201][205][201][212]!";:POKE54276,17:POKE54276,16 1492 FORT=1TO2000:NEXT 1493 SL=21:NL=1:GOSUB1170 1494 TT=TT-TV(C):TC(D)=TC(D)+TV(C)+COM(C):COM=COM-COM(C):C=C-1 1500 POKE214,3+C:PRINT:PRINTTAB(22);:SYS49152:GOTO1530 1510 IFD=0THENNS(C)=0 1520 NS(C)=NS(C)+XS(C):NS$(C)=STR$(NS(C)):XS(C)=0 1530 NEXT:PRINT""TAB(15)"[208]LEASE WAIT..." 1532 FORT=1TO1000:NEXT 1534 RETURN 1540 REM 1550 MT=2:GOSUB920 1552 PRINT"# [195]OMPANY [206]AME [208]/[211] X #[211]HRS = [212]OT [214]AL" 1560 FORC=1TO7 1561 PRINT""C; 1562 PRINTTAB(4)"[129]"CN$(C);:H=22:A=SP(0,C):GOSUB1060:PRINT"[158]"A 1570 NEXT:POKE214,13:PRINT:PRINT"[197]NTER NUMBER OF SHARES YOU WISH TO SELL" 1572 PRINT"OR ENTER ZERO (0) NOT TO SELL A STOCK" 1574 PRINT"AND PRESS [[210][197][212][213][210][206]] AFTER EACH ENTRY." 1580 TT=0:COM=0 1582 FORC=1TO7 1583 POKE214,3+C:PRINT"[145]":PRINTTAB(23)"[156] ";:BS=7:GOSUB1700:XS$(C)=WQ$ 1584 XS(C)=VAL(XS$(C)):IF(XS(C)>-1)AND(XS(C)<1000000)THENGOTO1600 1590 GOSUB1150:SL=21:NL=1:GOSUB 1170:C=C-1:GOTO1640 1600 TV(C)=XS(C)*SP(D,C) 1602 POKE214,3+C:PRINT"[145]":H=40:A=TV(C):GOSUB1060:PRINT""A 1604 GOSUB1250:TT=TT+TV(C) 1610 SL=13:NL=1:GOSUB1170 1612 POKE214,12:PRINT"[145]":PRINTTAB(12)"[149][212]OTAL TRANSACTION:"; 1614 H=40:A=TT:GOSUB 1060 1615 PRINT"[159]"A: TC(D)=TC(D)+TV(C)-COM(C): COM=COM+COM(C) 1620 IF XS(C)<=NS(C) THEN GOTO 1650 1630 POKE214,20:PRINT:PRINT"[150][217][207][213]'[210][197] [211][197][204][204][201][206][199] [205][207][210][197] [211][200][193][210][197][211] [212][200][193][206] [217][207][213] [207][215][206][146]" 1632 POKE54276,17:POKE54276,16 1634 FORT=1TO2000:NEXT 1636 SL=22:NL=1:GOSUB1170:TT=TT-TV(C) 1638 TC(D)=TC(D)-TV(C)+COM(C):COM=COM-COM(C):C=C-1 1640 POKE214,4+C:PRINT"[145]":PRINTTAB(23);:SYS49152:GOTO1660 1650 NS(C)=NS(C)-XS(C):NS$(C)=STR$(NS(C)):XS(C)=0 1660 NEXT:POKE214,20:PRINT"[145]":M$="[208]LEASE WAIT...[146]":GOSUB1040 1662 FORT=1TO1000:NEXT 1664 RETURN 1700 WQ$="":POKE204,0 1705 PRINT"[166][157]"; 1710 GETQW$:IF(QW$="")OR QW$=CHR$(34) THEN1710 1720 IFQW$=CHR$(13)THENPOKE204,255:PRINT" ":RETURN 1730 IFQW$=CHR$(20)ANDWQ$<>""THENPRINTQW$;:WQ$=LEFT$(WQ$,LEN(WQ$)-1):GOTO1705 1740 IFQW$<" "THEN1710 1750 IFLEN(WQ$)>BSTHEN1705 1760 IFQW$>CHR$(127)ANDQW$